home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / mlappend.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  44 lines
  1. 25 REM RESET TOP OF BASIC TEXT
  2. 30 POKE56,PEEK(46)+4:CLR
  3. 35 REM SET UP SCREEN CHARACTERISTICS
  4. 40 POKE53281,12:POKE53280,12:PRINT"[144]":POKE53272,23
  5. 50 GOSUB10000:REM PRINT HEADER
  6. 60 ML=49152:REM ADDR OF ML PART OF THIS PROGRAM (ONCE MOVED INTO PLACE)
  7. 70 SYS(PEEK(45)+PEEK(46)*256-55):REM MOVE ML PART OF THIS PROGRAM INTO PLACE
  8. 100 PRINT:PRINT:PRINT"       [201]NSERT DISK INTO DRIVE":PRINT
  9. 110 PRINT"        [212]HEN PRESS [211][208][193][195][197][160][194][193][210]"
  10. 115 GETA$:IFA$=""THEN115
  11. 120 GOSUB900:GOSUB800 :REM INITIALIZE DISK
  12. 130 DF=8:PR$="[194][193][211][201][195] PROGRAM.": REM SET DISK FILE NUMBER AND PROMPT
  13. 200 PRINT:PRINT"[197]NTER NAME OF ";PR$
  14. 210 PRINT"   OR ENTER QUIT[146]"
  15. 220 PRINT"   OR ENTER $[146] (FOR DISK DIR.)
  16. 230 [133]AN$
  17. 240 [139] AN$[178]"QUIT" [167] 700
  18. 250 [139] AN$[178]"$" [167] [158] ML:[137]200
  19. 260 [139] AN$[178]""[167]200
  20. 270 [159]DF,8,DF,"0:"[170]AN$[170]",P,R":[141]800
  21. 280 [139]DF[178]9[167] [141]10120:[158]ML[170]3
  22. 290 DF[178]9:PR$[178]"(null)(null) PROGRAM FILE."
  23. 295 [137]200
  24. 700 [160]8:[160]9:[160]15
  25. 710 [151]55,0:[151]56,160:[128]
  26. 800 [132]15,E,E$:[139] E[179][177]0[167][153]"STR$ISK VAL(null)(null)(null)(null):";E;",";E$:[137]700
  27. 810 [142]
  28. 900 [159]15,8,15,"I0":[142]
  29. 1000 [141]900:[152]15,"S0:MLAPPENDER":[160]15:[148]"MLAPPENDER",8:[128]
  30. 10000 [153]"LOAD      ** (null)(null) (null)(null)(null)CHR$(null)ATN(null) ATN(null)(null)VAL(null)STR$VAL(null) **
  31. 10010 PRINT"                  BY
  32. 10020 [153]"          (null)IKE (null)OZAKIEWICZ
  33. 10050 PRINT:PRINT:PRINT"[193]PPEND AN [205][204] PROGRAM TO THE END OF A
  34. 10060 [153]"PEEKATN(null)RIGHT$LEN PROGRAM SO THAT BOTH CAN BE SAVED":[153]"AS ONE UNIT.
  35. 10070 RETURN
  36. 10120 PRINT:PRINT:PRINT"[210][197][205][197][205][194][197][210]:":PRINT
  37. 10140 PRINT"[207]NCE THE [210][197][193][196][217] PROMPT APPEARS, YOU MUST
  38. 10150 [153]"ADD THE FOLLOWING LINE TO YOUR PEEKATN(null)RIGHT$LEN
  39. 10160 PRINT"PROGRAM BEFORE RUNNING IT. [212]HE [211][217][211]
  40. 10170 [153]"CAUSES YOUR (null)(null) PROGRAM TO BE MOVED TO
  41. 10180 PRINT"THE SPOT FROM WHICH IT WAS ORIGINALLY":PRINT"SAVED.":PRINT
  42. 10210 PRINT"SYS (PEEK(45)+PEEK(46)*256-63)
  43. 10220 [142]
  44.